home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / library / wrkspace / essai.s next >
Text File  |  1998-08-13  |  2KB  |  92 lines
  1.   text
  2.  
  3. ;**** deja testé :
  4. ; premier newbloc 
  5. ; freebloc isolé
  6. ; freebloc collé juste avant 
  7. ; freebloc collé juste aprés
  8. ; freebloc collé entre deux
  9. ; bloc max inquire
  10. ; newbloc de taille nulle -> erreur
  11. ; premier workspace
  12. ; more workspace 
  13. ; la taille du premier freebloc dans le workspace est exacte
  14. ; more workspace apres
  15. ; more workspace avant
  16. ; newbloc juste au debut d'un workspace
  17. ; newbloc juste a la fin d'un workspace
  18. ; plus aucun freebloc : newbloc -> erreur
  19. ; newbloc du dernier freebloc
  20. ; plus aucun freebloc : freebloc
  21. ; newbloc : cas des petits freeblocs <1longheader+1long
  22. ; mshrink
  23. ; mshrink : cas des petits freeblocs <1longheader+1long
  24. ; mshrinkup
  25. ; mshrinkup : cas des petits freeblocs <1longheader+1long
  26. ; copy_bloc
  27. ; copy_bloc autosize s<d
  28. ; copy_bloc autosize s>d
  29. ; modifs de bounoit : 1,2,3,5
  30. ;**** reste a tester :
  31. ;*
  32.  
  33. DEBUG=1
  34.  
  35. MXALLOC:    macro amount
  36.     move.w    #3,-(sp)
  37.     move.l    \1,-(sp)
  38.     move.w    #$44,-(sp)
  39.     trap    #1
  40.     addq.w    #8,sp
  41.  endm
  42.  
  43. MFREE:    macro amount
  44.     move.l    \1,-(sp)
  45.     move.w    #$49,-(sp)
  46.     trap    #1
  47.     addq.w    #6,sp
  48.  endm
  49.      bra    dd
  50.  
  51.     include workspa.s
  52.     text
  53.         
  54. GWVA_ERROR_MALLOC=-1
  55. GWVA_WSP_CTE_WORKSPACE=$40
  56. ;GWVA_WSP_CTE_TYPICAL_NB_BLOC=10
  57. dd:
  58.     lea    db_malloc1,a6
  59.     bsr    GWVA_WSP_MORE_WORKSPACE
  60.     
  61.     bsr    GWVA_WSP_BLOC_MAX_SIZE_INQUIRE
  62.  
  63.     move.l    #$10,d0
  64.     bsr    GWVA_WSP_NEW_BLOC
  65.     move.l    a0,db_b2
  66.     
  67.     move.l    #$20,d0
  68.     bsr    GWVA_WSP_NEW_BLOC
  69.     move.l    a0,db_b1
  70.     
  71.     move.l    #$15161718,(a0)+
  72.     move.l    #$25262728,(a0)+
  73.     move.l    #$35363738,(a0)+
  74.     move.l    #$45464748,(a0)+
  75.     move.l    #$55565758,(a0)+
  76.  
  77.     move.l    db_b1,a0
  78.     move.l    db_b2,a1
  79.     move.l    #GWVA_WPS_COPY_AUTOSIZE,d0
  80.     bsr    GWVA_WSP_BCOPY
  81.  
  82.     illegal
  83.  
  84. aa:
  85. db_b1:    dc.l    0
  86. db_b2:    dc.l    0
  87. db_b3:    dc.l    0
  88. db_b4:    dc.l    0
  89. db_b5:    dc.l    0
  90. db_malloc1:    dcb.b    DB_WORKSPACE_SIZE+_GWVA_WSP_WORKSPACE_STRUCT_LENGTH
  91.     dc.l    $55555555
  92.